home *** CD-ROM | disk | FTP | other *** search
/ Maximum CD 2000 November / Maximum CD 2000 Nov.iso / AofE-Conquerers / age2xtrial.exe / CABFILE / MSGAME.CAB / Data / gamedata_x1.drs / Unnamed File 000012.bina < prev    next >
Text File  |  2000-07-18  |  14KB  |  728 lines
  1. #load-if-defined GAME-SPEED-LOCKED
  2. (defrule
  3.     (true)
  4. =>
  5.     (set-goal rush-control 0)
  6.     (disable-self)
  7. )
  8. #else
  9. (defrule
  10.     (true)
  11. =>
  12.     (set-goal rush-control 0)
  13.     (disable-self)
  14. )
  15. #end-if
  16. ;*************************************************************
  17. (defrule
  18.     (not (map-type highland) )
  19. =>
  20.     (set-strategic-number sn-minimum-water-body-size-for-dock 3000)
  21.     (disable-self)
  22. )
  23. ;*************************************************************
  24. ;#load-if-defined SCENARIO-MAP
  25. ;(load "petersen fishboat")
  26. ;(load "petersen warboat")
  27.  
  28. ;(defrule
  29. ;    (true)
  30. ;=>
  31. ;    (set-goal 1 1)
  32. ;    (set-goal 2 0)
  33. ;    (chat-to-all-using-id 22145)
  34. ;    (chat-to-all-using-id 22146)
  35.         ;"If this is an all-land or an island map, then please"
  36.         ;"rework thy AI script accordingly."
  37. ;    (disable-self)
  38. ;)
  39.  
  40. ;#end-if
  41. ;*******************************
  42. #load-if-defined ARCHIPELAGO-MAP
  43. (load "petersen fishboat")
  44. (load "petersen warboat")
  45. (load "petersen warboat island")
  46.  
  47. (defrule
  48.     (true)
  49. =>
  50.     (chat-local-to-self "detecting ocean map!")
  51.     (set-goal 1 10)
  52.     (set-goal 2 0)
  53.     (disable-self)
  54. )
  55.  
  56. #end-if
  57. ;*******************************
  58. #load-if-defined ISLANDS-MAP
  59. (load "petersen fishboat")
  60. (load "petersen warboat")
  61. (load "petersen warboat island")
  62.  
  63. (defrule
  64.     (true)
  65. =>
  66.     (chat-local-to-self "detecting ocean map!")
  67.     (set-goal 1 10)
  68.     (set-goal 2 0)
  69.     (disable-self)
  70. )
  71.  
  72. #end-if
  73. ;*******************************
  74. #load-if-defined MIGRATION-MAP
  75. (load "petersen fishboat")
  76. (load "petersen warboat")
  77. (load "petersen warboat island")
  78.  
  79. (defrule
  80.     (true)
  81. =>
  82.     (chat-local-to-self "detecting ocean map!")
  83.     (set-goal 1 10)
  84.     (set-goal 2 0)
  85.     (disable-self)
  86. )
  87.  
  88. #end-if
  89. ;*******************************
  90. #load-if-defined TEAM-ISLANDS-MAP
  91. (load "petersen fishboat")
  92. (load "petersen warboat")
  93. (load "petersen warboat island")
  94.  
  95. (defrule
  96.     (true)
  97. =>
  98.     (chat-local-to-self "detecting ocean map!")
  99.     (set-goal 1 10)
  100.     (set-goal 2 0)
  101.     (disable-self)
  102. )
  103.  
  104. #end-if
  105. ;*******************************
  106. #load-if-defined REAL-WORLD-SPAIN-MAP
  107. (load "petersen fishboat")
  108. (load "petersen warboat")
  109. (load "petersen warboat island")
  110.  
  111. (defrule
  112.     (true)
  113. =>
  114.     (chat-local-to-self "detecting ocean map!")
  115.     (set-goal 1 10)
  116.     (set-goal 2 0)
  117.     (disable-self)
  118. )
  119.  
  120. #load-if-defined DEFEND-WONDER
  121. (defrule
  122.     (goal wonder-attempt DEFEND)
  123. =>
  124.     (set-goal wall-build YES)
  125.     (disable-self)
  126. )
  127. #end-if
  128. #end-if
  129. ;*******************************
  130. #load-if-defined REAL-WORLD-ENGLAND-MAP
  131. (load "petersen fishboat")
  132. (load "petersen warboat")
  133. (load "petersen warboat island")
  134.  
  135. (defrule
  136.     (true)
  137. =>
  138.     (chat-local-to-self "detecting ocean map!")
  139.     (set-goal 1 10)
  140.     (set-goal 2 0)
  141.     (disable-self)
  142. )
  143.  
  144. #load-if-defined DEFEND-WONDER
  145. (defrule
  146.     (goal wonder-attempt DEFEND)
  147. =>
  148.     (set-goal wall-build YES)
  149.     (disable-self)
  150. )
  151. #end-if
  152. #end-if
  153. ;*******************************
  154. #load-if-defined REAL-WORLD-ITALY-MAP
  155. (load "petersen fishboat")
  156. (load "petersen warboat")
  157. (load "petersen warboat island")
  158.  
  159. (defrule
  160.     (true)
  161. =>
  162.     (chat-local-to-self "detecting ocean map!")
  163.     (set-goal 1 10)
  164.     (set-goal 2 0)
  165.     (disable-self)
  166. )
  167.  
  168. #load-if-defined DEFEND-WONDER
  169. (defrule
  170.     (goal wonder-attempt DEFEND)
  171. =>
  172.     (set-goal wall-build YES)
  173.     (disable-self)
  174. )
  175. #end-if
  176. #end-if
  177. ;*******************************
  178. #load-if-defined REAL-WORLD-JUTLAND-MAP
  179. (load "petersen fishboat")
  180. (load "petersen warboat")
  181. (load "petersen warboat island")
  182.  
  183. (defrule
  184.     (true)
  185. =>
  186.     (chat-local-to-self "detecting ocean map!")
  187.     (set-goal 1 10)
  188.     (set-goal 2 0)
  189.     (disable-self)
  190. )
  191.  
  192. #load-if-defined DEFEND-WONDER
  193. (defrule
  194.     (goal wonder-attempt DEFEND)
  195. =>
  196.     (set-goal wall-build YES)
  197.     (disable-self)
  198. )
  199. #end-if
  200. #end-if
  201. ;*******************************
  202. #load-if-defined REAL-WORLD-NIPPON-MAP
  203. (load "petersen fishboat")
  204. (load "petersen warboat")
  205. (load "petersen warboat island")
  206.  
  207. (defrule
  208.     (true)
  209. =>
  210.     (chat-local-to-self "detecting ocean map!")
  211.     (set-goal 1 10)
  212.     (set-goal 2 0)
  213.     (disable-self)
  214. )
  215.  
  216. #load-if-defined DEFEND-WONDER
  217. (defrule
  218.     (goal wonder-attempt DEFEND)
  219. =>
  220.     (set-goal wall-build YES)
  221.     (disable-self)
  222. )
  223. #end-if
  224. #end-if
  225. ;*******************************
  226. #load-if-defined REAL-WORLD-BYZANTIUM-MAP
  227. (load "petersen fishboat")
  228. (load "petersen warboat")
  229. (load "petersen warboat island")
  230.  
  231. (defrule
  232.     (true)
  233. =>
  234.     (chat-local-to-self "detecting ocean map!")
  235.     (set-goal 1 10)
  236.     (set-goal 2 0)
  237.     (disable-self)
  238. )
  239.  
  240. #load-if-defined DEFEND-WONDER
  241. (defrule
  242.     (goal wonder-attempt DEFEND)
  243. =>
  244.     (set-goal wall-build YES)
  245.     (disable-self)
  246. )
  247. #end-if
  248. #end-if
  249. ;*******************************
  250. #load-if-defined BALTIC-MAP
  251. (load "petersen fishboat")
  252. (load "petersen warboat")
  253.  
  254. (defrule
  255.     (true)
  256. =>
  257.     (chat-local-to-self "detecting water map!")
  258.     (set-goal 1 1)
  259.     (set-goal 2 0)
  260.     (disable-self)
  261. )
  262. #end-if
  263. ;*******************************
  264. #load-if-defined COASTAL-MAP
  265. (load "petersen fishboat")
  266. (load "petersen warboat")
  267.  
  268. (defrule
  269.     (true)
  270. =>
  271.     (chat-local-to-self "detecting water map!")
  272.     (set-goal 1 1)
  273.     (set-goal 2 0)
  274.     (disable-self)
  275. )
  276. #end-if
  277. ;*******************************
  278. #load-if-defined CONTINENTAL-MAP
  279. (load "petersen fishboat")
  280. (load "petersen warboat")
  281.  
  282. (defrule
  283.     (true)
  284. =>
  285.     (chat-local-to-self "detecting water map!")
  286.     (set-goal 1 1)
  287.     (set-goal 2 0)
  288.     (disable-self)
  289. )
  290. #end-if
  291. ;*******************************
  292. #load-if-defined CRATER-LAKE-MAP
  293. (load "petersen fishboat")
  294. (load "petersen warboat")
  295.  
  296. (defrule
  297.     (true)
  298. =>
  299.     (chat-local-to-self "detecting water map!")
  300.     (set-goal 1 1)
  301.     (set-goal 2 0)
  302.     (disable-self)
  303. )
  304. #end-if
  305. ;*******************************
  306. #load-if-defined MEDITERRANEAN-MAP
  307. (load "petersen fishboat")
  308. (load "petersen warboat")
  309.  
  310. (defrule
  311.     (true)
  312. =>
  313.     (chat-local-to-self "detecting water map!")
  314.     (set-goal 1 1)
  315.     (set-goal 2 0)
  316.     (disable-self)
  317. )
  318. #end-if
  319. ;*******************************
  320. #load-if-defined REAL-WORLD-MIDEAST-MAP
  321. (load "petersen fishboat")
  322. (load "petersen warboat")
  323.  
  324. (defrule
  325.     (true)
  326. =>
  327.     (chat-local-to-self "detecting water map!")
  328.     (set-goal 1 1)
  329.     (set-goal 2 0)
  330.     (disable-self)
  331. )
  332.  
  333. #load-if-defined DEFEND-WONDER
  334. (defrule
  335.     (goal wonder-attempt DEFEND)
  336. =>
  337.     (set-goal wall-build YES)
  338.     (disable-self)
  339. )
  340. #end-if
  341. #end-if
  342. ;*******************************
  343. #load-if-defined REAL-WORLD-TEXAS-MAP
  344. (load "petersen fishboat")
  345. (load "petersen warboat")
  346.  
  347. (defrule
  348.     (true)
  349. =>
  350.     (chat-local-to-self "detecting water map!")
  351.     (set-goal 1 1)
  352.     (set-goal 2 0)
  353.     (disable-self)
  354. )
  355.  
  356. #load-if-defined DEFEND-WONDER
  357. (defrule
  358.     (goal wonder-attempt DEFEND)
  359. =>
  360.     (set-goal wall-build YES)
  361.     (disable-self)
  362. )
  363. #end-if
  364. #end-if
  365. ;*******************************
  366. #load-if-defined REAL-WORLD-CARIBBEAN-MAP
  367. (load "petersen fishboat")
  368. (load "petersen warboat")
  369.  
  370. (defrule
  371.     (true)
  372. =>
  373.     (chat-local-to-self "detecting water map!")
  374.     (set-goal 1 1)
  375.     (set-goal 2 0)
  376.     (disable-self)
  377. )
  378.  
  379. #load-if-defined DEFEND-WONDER
  380. (defrule
  381.     (goal wonder-attempt DEFEND)
  382. =>
  383.     (set-goal wall-build YES)
  384.     (disable-self)
  385. )
  386. #end-if
  387. #end-if
  388. ;*******************************
  389. #load-if-defined REAL-WORLD-FRANCE-MAP
  390. (load "petersen fishboat")
  391. (load "petersen warboat")
  392.  
  393. (defrule
  394.     (true)
  395. =>
  396.     (chat-local-to-self "detecting water map!")
  397.     (set-goal 1 1)
  398.     (set-goal 2 0)
  399.     (disable-self)
  400. )
  401.  
  402. #load-if-defined DEFEND-WONDER
  403. (defrule
  404.     (goal wonder-attempt DEFEND)
  405. =>
  406.     (set-goal wall-build YES)
  407.     (disable-self)
  408. )
  409. #end-if
  410. #end-if
  411. ;*******************************
  412. #load-if-defined CUSTOM-MAP
  413. (load "petersen fishboat")
  414. (load "petersen warboat")
  415.  
  416. (defrule
  417.     (true)
  418. =>
  419.     (chat-local-to-self "detecting water map!")
  420.     (set-goal 1 1)
  421.     (set-goal 2 0)
  422.     (disable-self)
  423. )
  424. #end-if
  425. ;*******************************
  426. #load-if-defined NOMAD-MAP
  427. (load "petersen fishboat")
  428.  
  429. (defrule
  430.     (true)
  431. =>
  432.     (chat-local-to-self "detecting water map!")
  433.     (set-goal 1 1)
  434.     (set-goal 2 0)
  435.     (disable-self)
  436. )
  437.  
  438. (defrule
  439.     (game-time < 90)
  440. =>
  441.     (set-strategic-number sn-minimum-civilian-explorers 6)
  442.  
  443.     (set-strategic-number sn-cap-civilian-explorers 6)
  444.     (set-strategic-number sn-cap-civilian-builders 0)
  445.     (set-strategic-number sn-cap-civilian-gatherers 0)
  446.  
  447.     (set-strategic-number sn-percent-civilian-explorers 100)
  448.     (set-strategic-number sn-percent-civilian-builders 0)
  449.     (set-strategic-number sn-percent-civilian-gatherers 0)
  450.  
  451.     (disable-self)
  452. )
  453.  
  454. (defrule
  455.     (game-time > 180)
  456.     (unit-type-count villager < 15)
  457.     (starting-resources < high-resources)
  458.     (or
  459.         (unit-type-count scout-cavalry == 0)
  460.         (unit-type-count eagle-warrior == 0)
  461.     )
  462. =>
  463.     (set-strategic-number sn-minimum-civilian-explorers 1)
  464.     (set-strategic-number sn-cap-civilian-explorers 1)
  465.     (set-strategic-number sn-percent-civilian-explorers 5)
  466.     (set-strategic-number sn-percent-civilian-builders 15)
  467.     (set-strategic-number sn-percent-civilian-gatherers 80)
  468.     (disable-self)
  469. )
  470.  
  471. (defrule
  472.     (game-time > 180)
  473.     (unit-type-count villager < 15)
  474.     (starting-resources == high-resources)
  475.     (or
  476.         (unit-type-count scout-cavalry == 0)
  477.         (unit-type-count eagle-warrior == 0)
  478.     )
  479. =>
  480.     (set-strategic-number sn-minimum-civilian-explorers 1)
  481.     (set-strategic-number sn-cap-civilian-explorers 1)
  482.     (set-strategic-number sn-percent-civilian-explorers 5)
  483.     (set-strategic-number sn-percent-civilian-builders 80)
  484.     (set-strategic-number sn-percent-civilian-gatherers 15)
  485.     (disable-self)
  486. )
  487.  
  488. (defrule
  489.    (game-time > 30)
  490.     (building-type-count town-center < 1)
  491.     (can-build town-center)
  492. =>
  493.     (build town-center)
  494. )
  495.  
  496.  
  497. #load-if-defined HUN-CIV
  498. (defrule
  499.     (building-type-count-total town-center > 0)
  500.     (building-type-count-total mill == 0)
  501.     (can-build mill)
  502. =>
  503.     (build mill)
  504. )
  505. #end-if
  506. #end-if
  507. ;*******************************
  508. #load-if-defined RIVERS-MAP
  509. (load "petersen fishboat")
  510. (load "petersen warboat")
  511.  
  512. (defrule
  513.     (true)
  514. =>
  515.     (chat-local-to-self "detecting water map!")
  516.     (set-goal 1 1)
  517.     (set-goal 2 0)
  518.     (disable-self)
  519. )
  520. #end-if
  521. ;*******************************
  522. #load-if-defined SALT-MARSH-MAP
  523. (load "petersen fishboat")
  524. (load "petersen warboat")
  525.  
  526. (defrule
  527.     (true)
  528. =>
  529.     (chat-local-to-self "detecting water map!")
  530.     (set-goal 1 1)
  531.     (set-goal 2 0)
  532.     (disable-self)
  533. )
  534. #end-if
  535. ;*******************************
  536. #load-if-defined SCANDANAVIA-MAP
  537. (load "petersen fishboat")
  538.  
  539. (defrule
  540.     (true)
  541. =>
  542.     (chat-local-to-self "detecting water map!")
  543.     (set-goal 1 1)
  544.     (set-goal 2 0)
  545.     (disable-self)
  546. )
  547. #end-if
  548. ;*******************************
  549. #load-if-defined ARABIA-MAP
  550.  
  551. (defrule
  552.     (true)
  553. =>
  554.     (chat-local-to-self "detecting land map!")
  555.     (set-goal 1 0)
  556.     (disable-self)
  557. )
  558. #end-if
  559. ;*******************************
  560. #load-if-defined ARENA-MAP
  561.  
  562. (defrule
  563.     (true)
  564. =>
  565.     (chat-local-to-self "detecting land map!")
  566.     (set-goal 1 0)
  567.     (disable-self)
  568. )
  569. #end-if
  570. ;*******************************
  571. #load-if-defined BLACK-FOREST-MAP
  572.  
  573. (defrule
  574.     (true)
  575. =>
  576.     (chat-local-to-self "detecting land map!")
  577.     (set-goal 1 0)
  578.     (disable-self)
  579. )
  580.  
  581. (defrule
  582.     (difficulty <= hard)
  583.     (unit-type-count-total bombard-cannon < five-percent-pop)
  584.     (can-train-with-escrow bombard-cannon)
  585.     (not (goal upgrade-conflict NOTICE) )
  586. =>
  587.     (release-escrow wood)
  588.     (release-escrow gold)
  589.     (train bombard-cannon)
  590.     (chat-local-to-self "bombard")
  591. )
  592.  
  593. #end-if
  594. ;*******************************
  595. #load-if-defined FORTRESS-MAP
  596.  
  597. (defrule
  598.     (true)
  599. =>
  600.     (chat-local-to-self "detecting land map!")
  601.     (set-goal 1 0)
  602.     (disable-self)
  603. )
  604. #end-if
  605. ;*******************************
  606. #load-if-defined GHOST-LAKE-MAP
  607.  
  608. (defrule
  609.     (true)
  610. =>
  611.     (chat-local-to-self "detecting land map!")
  612.     (set-goal 1 0)
  613.     (disable-self)
  614. )
  615. #end-if
  616. ;*******************************
  617. #load-if-defined GOLD-RUSH-MAP
  618.  
  619. (defrule
  620.     (true)
  621. =>
  622.     (chat-local-to-self "detecting land map!")
  623.     (set-goal 1 0)
  624.     (disable-self)
  625. )
  626.  
  627. (defrule
  628.     (current-age >= feudal-age)
  629.     (not (strategic-number sn-maximum-town-size == imperial-town-size) )
  630. =>
  631.     (set-strategic-number sn-maximum-town-size imperial-town-size)
  632. )
  633. #end-if
  634. ;*******************************
  635. #load-if-defined HIGHLAND-MAP
  636.  
  637. (defrule
  638.     (true)
  639. =>
  640.     (chat-local-to-self "detecting land map!")
  641.     (set-goal 1 0)
  642.     (disable-self)
  643. )
  644.  
  645. (defrule
  646.     (current-age == imperial-age)
  647.     (building-type-count-total dock == 0)
  648.     (wood-amount > 400)
  649.     (or
  650.         (cc-players-building-type-count any-enemy fortified-wall > 0)
  651.         (cc-players-building-type-count any-enemy stone-wall > 0)
  652.     )
  653.     (can-build dock)
  654. =>
  655.     (build dock)
  656. )
  657.  
  658. (defrule
  659.     (current-age == imperial-age)
  660.     (unit-type-count-total transport-ship == 0)
  661.     (or
  662.         (cc-players-building-type-count any-enemy fortified-wall > 0)
  663.         (cc-players-building-type-count any-enemy stone-wall > 0)
  664.     )
  665.     (can-train transport-ship)
  666. =>
  667.     (train transport-ship)
  668. )
  669. #end-if
  670. ;*******************************
  671. #load-if-defined MONGOLIA-MAP
  672.  
  673. (defrule
  674.     (true)
  675. =>
  676.     (chat-local-to-self "detecting land map!")
  677.     (set-goal 1 0)
  678.     (disable-self)
  679. )
  680. #end-if
  681. ;*******************************
  682. #load-if-defined OASIS-MAP
  683.  
  684. (defrule
  685.     (true)
  686. =>
  687.     (chat-local-to-self "detecting land map!")
  688.     (set-goal 1 0)
  689.     (disable-self)
  690. )
  691. #end-if
  692. ;*******************************
  693. #load-if-defined YUCATAN-MAP
  694.  
  695. (defrule
  696.     (true)
  697. =>
  698.     (chat-local-to-self "detecting land map!")
  699.     (set-goal 1 0)
  700.     (disable-self)
  701. )
  702. #end-if
  703. ;*************************************************************
  704.  
  705. #load-if-defined REGICIDE
  706. (defrule
  707.     (building-type-count-total castle == 0)
  708.     (not (goal castle-attempt YES) )
  709. =>
  710.     (set-goal castle-attempt YES)
  711. )
  712.  
  713. (defrule
  714.     (current-age < imperial-age)
  715.     (not (goal rush-control IMPERIAL) )
  716. =>
  717.     (set-goal rush-control IMPERIAL)
  718. )
  719.  
  720. (defrule    ;200 in regicide
  721.     (goal military-parity SUPERIOR)
  722.     (can-spy)
  723. =>
  724.     (spy)
  725.     (disable-self)
  726. )
  727.  
  728. #end-if